home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / address book.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  7KB  |  281 lines
  1. 5 DIMH$(8),A$(100,8)
  2. 10 PRINTCHR$(147);:POKE53280,15:POKE53281,9
  3. 20 PRINTCHR$(142)"[158][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  4. 30 FORT=1TO23
  5. 40 PRINT"[214]                                      [214]";
  6. 50 NEXTT
  7. 60 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
  8. 70 POKE2023,86:POKE56295,7
  9. 80 PRINT"":PRINTTAB(14)"ADDRESS BOOK"
  10. 90 PRINTTAB(14)"[145][163][163][163][163][163][163][163][163][163][163][163][163]"
  11. 100 FORT=1TO3000:NEXTT
  12. 119 REM**READ DATA HEADINGS
  13. 120 FORT=0TO8:READH$(T):NEXTT
  14. 199 REM**MAIN MENU
  15. 200 POKE53280,6:POKE53281,11:PRINTCHR$(14)"[147]";
  16. 210 PRINTTAB(11)"[205]ENU OF [193]CTIVITIES"
  17. 220 PRINTTAB(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  18. 230 PRINTTAB(3)"1. [204][207][193][196][160]THE INFORMATION FROM DISK."
  19. 240 PRINT:PRINTTAB(3)"2. [210][197][214][201][197][215] THE INFORMATION."
  20. 250 PRINT:PRINTTAB(3)"3. [193][196][196] A NEW ENTRY."
  21. 260 PRINT:PRINTTAB(3)"4. [195][200][193][206][199][197] SOME INFORMATION."
  22. 270 PRINT:PRINTTAB(3)"5. [196][197][204][197][212][197] AN ENTRY."
  23. 280 PRINT:PRINTTAB(3)"6. [211][193][214][197] THE INFORMATION ON DISK."
  24. 290 PRINT:PRINTTAB(3)"7. [208][210][201][206][212]ING MENU."
  25. 300 PRINT:PRINTTAB(3)"8. [205][197][206][213] OF OTHER PROGRAMS ON DISK."
  26. 304 PRINT"[195][200][207][207][211][197] [194][217] [208][210][197][211][211][201][206][199] [193] [206][213][205][194][197][210][146]";
  27. 310 GETAN$:IFAN$=""THEN310
  28. 320 IFAN$<"1"ORAN$>"8"THENGOTO350
  29. 330 M=VAL(AN$)
  30. 340 ONMGOTO2000,5000,8000,11000,14000,17000,20000,23000
  31. 349 REM**IF WRONG MENU INPUT
  32. 350 FORT=1TO10
  33. 360 PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[150][157][157][157][157][157][157][206][213][205][194][197][210][146]";
  34. 370 FORY=1TO150:NEXTY
  35. 380 NEXTT
  36. 390 GOTO310
  37. 1999 REM**FROM MENU OPTION 1
  38. 2000 POKE53280,7
  39. 2010 PRINT"[147]":PRINTTAB(17)"[204]OADING"
  40. 2020 I=0:J=0
  41. 2030 OPEN2,8,2,"0:NAMEFILE,S,R"
  42. 2060 INPUT#2,A$(I,J)
  43. 2070 IFST<>0THENGOTO2100
  44. 2080 J=J+1
  45. 2084 IFJ>8THENJ=0:I=I+1
  46. 2090 GOTO2060
  47. 2100 CLOSE2
  48. 2200 X=I:Z1=1:GOTO200
  49. 4999 REM**FROM MENU OPTION 2
  50. 5000 GOTO30000
  51. 5002 PRINT"[147]":I=0
  52. 5010 FORJ=0TO8
  53. 5014 IFJ=0THENPRINTCHR$(147)""
  54. 5020 PRINTTAB(2)A$(I,J)
  55. 5022 IFJ=6THENPRINT
  56. 5024 IFJ=7THENPRINT
  57. 5030 NEXTJ
  58. 5035 IFI=XTHENGOTO5100
  59. 5040 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
  60. 5050 GETAN$:IFAN$=""THEN5050
  61. 5060 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO5010
  62. 5070 GOTO200
  63. 5100 PRINT"[204]AST ENTRY. [208]RESS [198]1 TO RETURN TO MENU";
  64. 5110 GETAN$:IFAN$<>"[133]"THEN5110
  65. 5120 GOTO200
  66. 7999 REM**FROM MENU OPTION 3
  67. 8000 PRINTCHR$(147):POKE53280,5
  68. 8010 PRINT:PRINTTAB(13)"[193][196][196][201][206][199] [193] [210][197][195][207][210][196]"
  69. 8020 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
  70. 8030 FORT=0TO8:PRINT" ";H$(T):PRINT:NEXTT
  71. 8035 IFZ=1THENJ=0:GOTO8050
  72. 8037 IFZ1=1THENI=I+1:J=0:GOTO8050
  73. 8040 I=0:J=0
  74. 8050 PRINT"";
  75. 8060 INPUT"*[157][157][157]";A$(I,J):GOTO8500
  76. 8070 PRINTTAB(11)"[193]NOTHER RECORD? (Y/N)[146]";
  77. 8080 GETAN$:IFAN$=""THEN8080
  78. 8090 IFAN$="N"ORAN$="[206]"THENX=I:GOTO200
  79. 8100 I=I+1:J=0:Z=1:GOTO8000
  80. 8500 PRINTTAB(13)"[158][197]NTRY [207].[203].? (Y/N)"
  81. 8510 GETAN$:IFAN$=""THEN8510
  82. 8520 IFAN$="N"ORAN$="[206]"THENZ=1:GOTO8000
  83. 8530 J=J+1
  84. 8540 IFJ>8THENJ=8:GOTO8070
  85. 8550 GOTO8060
  86. 10999 REM**FROM MENU OPTION 4
  87. 11000 POKE53280,7
  88. 11010 PRINT"[147]";TAB(12)"[150][195][200][193][206][199][197] [207][208][212][201][207][206][211]"
  89. 11020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  90. 11030 PRINTTAB(8)"1. [210]EVIEW AND CHANGE."
  91. 11040 PRINTTAB(8)"2. [211]EARCH AND CHANGE."
  92. 11050 PRINTTAB(8)"3. [210]ETURN TO MAIN MENU."
  93. 11060 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
  94. 11070 GETAN$:IFAN$=""THEN11070
  95. 11080 IFAN$<"1"ORAN$>"3"THENGOTO11110
  96. 11090 M=VAL(AN$)
  97. 11100 ONMGOTO11160,11500,200
  98. 11109 REM**IF WRONG MENU INPUT
  99. 11110 FORT=1TO10
  100. 11120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
  101. 11130 FORY=1TO150:NEXTY
  102. 11140 NEXTT
  103. 11150 GOTO11070
  104. 11159 REM**FROM CHANGING MENU OPTION 1
  105. 11160 PRINT"":I=0:CS=0
  106. 11170 FORJ=0TO8
  107. 11180 IFJ=0THENPRINTCHR$(147)""
  108. 11190 PRINTTAB(6)"[158]";J;"";A$(I,J)
  109. 11200 IFJ=6THENPRINT
  110. 11210 IFJ=7THENPRINT
  111. 11220 NEXTJ
  112. 11230 PRINTTAB(8)"[150][195][200][193][206][199][197][146] THIS ENTRY? (Y/N)"
  113. 11240 GETAN$:IFAN$=""THEN11240
  114. 11250 IFAN$="Y"ORAN$="[217]"THENGOTO11310
  115. 11260 IFI=XTHENGOTO5100
  116. 11270 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
  117. 11280 GETAN$:IFAN$=""THEN11280
  118. 11290 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO11302
  119. 11300 GOTO200
  120. 11302 IFCS=1THENGOTO14500
  121. 11304 GOTO11170
  122. 11310 PRINT"[145][197]NTER [158][206][213][205][194][197][210] OF LINE TO BE CHANGED."
  123. 11320 GETAN$:IFAN$=""THEN11320
  124. 11330 IFAN$<"0"ORAN$>"8"THENPRINT"":GOTO11310
  125. 11340 J=VAL(AN$):PRINTCHR$(19);
  126. 11350 DN$=""
  127. 11360 IFJ=7THENPRINTLEFT$(DN$,13);:GOTO11390
  128. 11370 IFJ=8THENPRINTLEFT$(DN$,15);:GOTO11390
  129. 11380 PRINTLEFT$(DN$,J+5);
  130. 11390 PRINTTAB(9)"                         "
  131. 11400 INPUT"[145]";A$(I,J)
  132. 11410 PRINTCHR$(19);LEFT$(DN$,18);TAB(2);"      [195]HANGE ANOTHER LINE? (Y/N)    "
  133. 11420 GETAN$:IFAN$=""THEN11420
  134. 11430 IFAN$="Y"ORAN$="[217]"THENGOTO11310
  135. 11440 GOTO11270
  136. 11499 REM**FROM CHANGING MENU OPTION 2
  137. 11500 CS=1
  138. 11510 GOTO14500
  139. 13999 REM**FROM MENU OPTION 5
  140. 14000 POKE53280,2:DS=0
  141. 14010 PRINT"[147]";TAB(12)"[158][196][197][204][197][212][201][206][199] [207][208][212][201][207][206][211]"
  142. 14020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  143. 14030 PRINTTAB(8)"1. [210]EVIEW AND DELETE."
  144. 14040 PRINTTAB(8)"2. [211]EARCH AND DELETE."
  145. 14050 PRINTTAB(8)"3. [210]ETURN TO MAIN MENU."
  146. 14060 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
  147. 14070 GETAN$:IFAN$=""THEN14070
  148. 14080 IFAN$<"1"ORAN$>"3"THENGOTO14110
  149. 14090 M=VAL(AN$)
  150. 14100 ONMGOTO14160,14500,200
  151. 14109 REM**IF WRONG MENU INPUT
  152. 14110 FORT=1TO10
  153. 14120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
  154. 14130 FORY=1TO150:NEXTY
  155. 14140 NEXTT
  156. 14150 GOTO14070
  157. 14159 REM**FROM DELETING MENU OPTION 1.
  158. 14160 PRINT"":I=0
  159. 14170 FORJ=0TO8
  160. 14180 IFJ=0THENPRINTCHR$(147)""
  161. 14190 PRINTTAB(7)A$(I,J)
  162. 14200 IFJ=6THENPRINT
  163. 14210 IFJ=7THENPRINT
  164. 14220 NEXTJ
  165. 14230 PRINTTAB(8)"[158][196][197][204][197][212][197][146] THIS ENTRY? (Y/N)"
  166. 14240 GETAN$:IFAN$=""THEN14240
  167. 14250 IFAN$="Y"ORAN$="[217]"THENGOTO14310
  168. 14260 IFI=XTHENGOTO5100
  169. 14270 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
  170. 14280 GETAN$:IFAN$=""THEN14280
  171. 14290 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO14302
  172. 14300 GOTO200
  173. 14302 IFDS=1THENGOTO14520
  174. 14304 GOTO14170
  175. 14310 X=X-1:DE=I
  176. 14320 FORI=DETOX:FORJ=0TO8
  177. 14330 A$(I,J)=A$(I+1,J)
  178. 14340 NEXTJ:NEXTI
  179. 14350 PRINTTAB(8)"[145][158][196][197][204][197][212][197][196][146] AS REQUESTED.           "
  180. 14360 GOTO14260
  181. 14449 REM**FROM DELETING MENU OPTION 2.
  182. 14500 INPUT"[147][211]EARCH WORD";DE$
  183. 14502 PRINTTAB(6)"[208]LEASE WAIT A MOMENT."
  184. 14510 I=0
  185. 14520 FORJ=0TO8
  186. 14530 A=LEN(A$(I,J))
  187. 14540 FORDE=1TOA-3
  188. 14550 IFLEFT$(DE$,4)=MID$(A$(I,J),DE,4)THENGOTO14640
  189. 14560 NEXTDE:NEXTJ
  190. 14570 I=I+1
  191. 14580 IFI=X+1THENGOTO14600
  192. 14590 GOTO14520
  193. 14600 PRINT"[211]EARCH COMPLETED."
  194. 14610 PRINT"[208]RESS [198]1 TO RETURN TO MENU.[146]"
  195. 14620 GETAN$:IFAN$<>"[133]"THEN14620
  196. 14622 IFCS=1THENGOTO11010
  197. 14624 IFRV=1THENGOTO30000
  198. 14630 GOTO14010
  199. 14640 DS=1
  200. 14642 IFCS=1THENGOTO11170
  201. 14644 GOTO14170
  202. 16999 REM**FROM MENU OPTION 6
  203. 17000 POKE53280,10
  204. 17010 PRINT"[147]":PRINTTAB(9)"[211]AVING NEW RECORDS"
  205. 17040 OPEN2,8,2,"@0:NAMEFILE,S,W"
  206. 17050 I=0:J=0
  207. 17070 PRINT#2,A$(I,J)
  208. 17080 J=J+1
  209. 17090 IFJ>8THENJ=0:I=I+1
  210. 17094 IFI=X+1THENGOTO17110
  211. 17100 GOTO17070
  212. 17110 CLOSE2
  213. 17120 GOTO200
  214. 19999 REM**FROM MENU OPTION 7
  215. 20000 POKE53280,4
  216. 20010 PRINT"[147]";TAB(12)"[208][210][201][206][212][201][206][199] [207][208][212][201][207][206][211]"
  217. 20020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  218. 20030 PRINTTAB(6)"1. [208]RINT ALL ENTRIES."
  219. 20040 PRINTTAB(6)"2. [211]EARCH AND PRINT."
  220. 20050 PRINTTAB(6)"3. [210]ETURN TO MAIN MENU."
  221. 20060 PRINTTAB(7)"[195][200][207][207][211][197] [194][217] [208][210][197][211][211][201][206][199] [193] [206][213][205][194][197][210][146]";
  222. 20070 GETAN$:IFAN$=""THEN20070
  223. 20080 IFAN$<"1"ORAN$>"3"THENGOTO20110
  224. 20090 M=VAL(AN$)
  225. 20100 ONMGOTO20160,20500,200
  226. 20109 REM**IF WRONG MENU INPUT
  227. 20110 FORT=1TO10
  228. 20120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
  229. 20130 FORY=1TO150:NEXTY
  230. 20140 NEXTT
  231. 20150 GOTO20070
  232. 20160 I=0:J=0
  233. 20170 OPEN4,4,7:CMD4
  234. 20190 PRINT"        ";A$(I,J)
  235. 20200 IFJ=6THENPRINT
  236. 20210 IFJ=7THENPRINT
  237. 20220 IFJ=8THENPRINT:PRINT:PRINT
  238. 20230 J=J+1
  239. 20240 IFJ=<8THENGOTO20190
  240. 20260 PRINT#4:CLOSE4
  241. 20270 PRINT"[147]";TAB(9);"[193]NOTHER ENTRY? (Y/N)"
  242. 20280 GETAN$:IFAN$=""THEN20280
  243. 20290 IFAN$="N"ORAN$="[206]"THENGOTO20000
  244. 20291 I=I+1:J=0:IFI=X+1THENGOTO5100
  245. 20292 IFPTTHENGOTO20520
  246. 20294 GOTO20170
  247. 20300 PRINT#4:CLOSE4:GOTO5100
  248. 20449 REM**FROM PRINTING OPTION 2.
  249. 20500 INPUT"[147][211]EARCH WORD";SE$
  250. 20502 PRINT"[158][208]LEASE WAIT A MINUTE.":IFPT=1THENGOTO20520
  251. 20510 I=0
  252. 20520 FORJ=0TO8
  253. 20530 A=LEN(A$(I,J))
  254. 20540 FORSE=1TOA-3
  255. 20550 IFLEFT$(SE$,4)=MID$(A$(I,J),SE,4)THENPT=1:J=0:GOTO20170
  256. 20560 NEXTSE:NEXTJ
  257. 20570 I=I+1
  258. 20580 IFI=X+1THENGOTO20600
  259. 20590 GOTO20520
  260. 20600 PRINT"[211]EARCH COMPLETED."
  261. 20610 PRINT"[208]RESS [198]1 TO RETURN TO MENU.[146]"
  262. 20620 GETAN$:IFAN$<>"[133]"THEN20620
  263. 20630 GOTO20010
  264. 22999 REM**FROM MENU OPTION 8
  265. 23000 PRINTCHR$(142)"[147]LOAD"CHR$(34)"MENU"CHR$(34)",8"
  266. 23010 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  267. 23020 POKE631,13:POKE632,13:POKE198,2:END
  268. 29999 REM**FROM 5000
  269. 30000 RV=1:PRINT"[147]";TAB(12)"[210][197][214][201][197][215][201][206][199][160][207][208][212][201][207][206][211]"
  270. 30010 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  271. 30020 PRINTTAB(6)"1. [210]EVIEW ALL."
  272. 30030 PRINTTAB(6)"2. [211]EARCH AND REVIEW."
  273. 30040 PRINTTAB(6)"3. [210]ETURN TO MAIN MENU."
  274. 30050 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
  275. 30060 GETAN$:IFAN$=""THEN30060
  276. 30070 IFAN$<"1"ORAN$>"3"THENGOTO30060
  277. 30080 M=VAL(AN$)
  278. 30090 ONMGOTO5002,14500,200
  279. 50000 DATA"[204]AST NAME:","[207]THERS:","[211]TREET:","[195]ITY:","[211]TATE:","[208]OSTCODE:"
  280. 50010 DATA"[195]OUNTRY:","[208]HONE:","[195]OMMENTS:"
  281.